Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper
Public Class ValesDeMP
    Public Function Insertar(ByVal Responsable As Integer, ByVal Solicitud As Integer, ByVal Cantidad As Integer)
        Dim CodigoVMP As Integer
        CodigoVMP = ExecuteScalar(My.Settings.MiCadena, CommandType.StoredProcedure, "ValesDeMPInsertar", New SqlParameter("@Responsable", Responsable), New SqlParameter("@Solicitud", Solicitud), New SqlParameter("@Cantidad", Cantidad))
        Return CodigoVMP
    End Function

    Public Function Obtener()
        Return ExecuteDataset(My.Settings.MiCadena, CommandType.StoredProcedure, "ValesDeMPObtenerPendientes")
    End Function

End Class
